﻿Module Module1
  Sub Main()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim s As String
    For i = 1 To 10
      For j = 1 To 10
        s = CType(i * j, String)
        Dim lung As Integer = _
           2 - s.Length
        For k = 0 To lung
          s = " " & s
        Next
        Console.Write(s & " ")
      Next
      Console.WriteLine()
    Next
    Console.ReadLine()
  End Sub
End Module

